home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 1 / PC World Interactive 1 - Nisan 1997.iso / nostalji / bbs / music / sanatmuz.bas < prev    next >
Encoding:
BASIC Source File  |  1996-02-15  |  13.6 KB  |  251 lines
  1. 10 ' ╔══════════════════════════════╗
  2. 20 ' ║     21'LÿK SANAT MÜZÿªÿ      ║
  3. 30 ' ╚══════════════════════════════╝
  4. 40 CLS
  5. 50 FOR H = 3 TO 22
  6. 60 LOCATE H, 1: PRINT "║": LOCATE H, 80: PRINT "║"
  7. 70 NEXT
  8. 80 LOCATE 2, 1: PRINT "╔══════════════════════════════════════════════════════════════════════════════╗"
  9. 90 LOCATE 23, 1: PRINT "╚══════════════════════════════════════════════════════════════════════════════╝"
  10. 100 COLOR 0, 7: LOCATE 2, 4: PRINT "      ******    M Ü Z ÿ K   R U H U N   G I D A S I D I R   ********      ": COLOR 7, 0
  11. 110 LOCATE 4, 2: PRINT "═════════════════════════════════════════════════════════════════════════════"
  12. 120 LOCATE 5, 4: PRINT "A...YANAKLARIN ÇÿÇEKTÿR"
  13. 130 LOCATE 7, 4: PRINT "B...BÿR ÿLKBAHAR SABAHI"
  14. 140 LOCATE 9, 4: PRINT "C...₧ARKILAR YAZDIM SANA"
  15. 150 LOCATE 11, 4: PRINT "D...₧ARKIMI SENIN ÿÇÿN"
  16. 160 LOCATE 13, 4: PRINT "E...SEN OªRETTÿN "
  17. 170 LOCATE 15, 4: PRINT "F...GÖZ YA₧IMDA SAKLISIN"
  18. 180 LOCATE 17, 4: PRINT "G...GÖZLERÿNLE KONU₧SAN"
  19. 190 LOCATE 5, 30: PRINT "H...KARDE₧ GÿBÿ SEV "
  20. 200 LOCATE 7, 30: PRINT "I...AYNI ÇATI ALTINDA"
  21. 210 LOCATE 9, 30: PRINT "J...KAPILDIM SANA"
  22. 220 LOCATE 11, 30: PRINT "K...HÿÇ BÿR ₧EYDE GÖZÜM"
  23. 230 LOCATE 13, 30: PRINT "L...₧ARKILARDAN FAL"
  24. 240 LOCATE 15, 30: PRINT "M...PENCERENÿN PERDESI"
  25. 250 LOCATE 17, 30: PRINT "N...BÖYLE KAÇ YIL GE.."
  26. 260 LOCATE 5, 55: PRINT "O...BÿLSEN DÖNÜP GELE.."
  27. 270 LOCATE 7, 55: PRINT "P...₧U GONLÜMÜ YARALAYAN"
  28. 280 LOCATE 9, 55: PRINT "R...GÖKTEN YAªMUR DEªÿL"
  29. 290 LOCATE 11, 55: PRINT "S...BÿR SEVGÿ ÿSTÿYORUM"
  30. 300 LOCATE 13, 55: PRINT "T...AFFETMEM ASLA SENÿ"
  31. 310 LOCATE 15, 55: PRINT "U...BENÿ HATIRLA"
  32. 320 LOCATE 17, 55: PRINT "Z...PROGRAMDAN CIKIS"
  33. 330 A$ = INKEY$: IF A$ = "" THEN 330
  34. 340 IF A$ = "A" OR A$ = "a" THEN 560
  35. 350 IF A$ = "B" OR A$ = "b" THEN 670
  36. 360 IF A$ = "C" OR A$ = "c" THEN 780
  37. 370 IF A$ = "D" OR A$ = "d" THEN 870
  38. 380 IF A$ = "E" OR A$ = "e" THEN 980
  39. 390 IF A$ = "F" OR A$ = "f" THEN 1070
  40. 400 IF A$ = "G" OR A$ = "g" THEN 1160
  41. 410 IF A$ = "H" OR A$ = "h" THEN 1250
  42. 420 IF A$ = "I" OR A$ = "i" THEN 1350
  43. 430 IF A$ = "J" OR A$ = "j" THEN 1450
  44. 440 IF A$ = "K" OR A$ = "k" THEN 1540
  45. 450 IF A$ = "L" OR A$ = "l" THEN 1640
  46. 460 IF A$ = "M" OR A$ = "m" THEN 1730
  47. 470 IF A$ = "N" OR A$ = "n" THEN 1820
  48. 480 IF A$ = "O" OR A$ = "o" THEN 1910
  49. 490 IF A$ = "P" OR A$ = "p" THEN 2000
  50. 500 IF A$ = "R" OR A$ = "r" THEN 2090
  51. 510 IF A$ = "S" OR A$ = "s" THEN 2180
  52. 520 IF A$ = "T" OR A$ = "t" THEN 2280
  53. 530 IF A$ = "U" OR A$ = "u" THEN 2390
  54. 540 IF A$ = "Z" OR A$ = "z" THEN CLS : KEY ON: END
  55. 550 BEEP: GOTO 330
  56. 560 CLS
  57. 570 LOCATE 8, 10: PRINT "YANAKLARIN ÇÿÇEKTÿR"
  58. 580 LOCATE 10, 10: PRINT "SÖZ.......SEDAT ÖZPÿRÿNÇCÿ"
  59. 590 LOCATE 12, 10: PRINT "BESTE.....SAADETTÿN KAYNAK"
  60. 600 LOCATE 14, 10: PRINT "MAKAMI....U₧₧AK"
  61. 610 '*************** YANAKLARIN ÇÿÇEKTÿR ************
  62. 620 TEM$ = "T125"
  63. 630 A$ ="O4E8A16B16A8G8A16A8O5C16O4B16A16G16F16E8G8A8G8F8G16G8B16A16G16F16E16D8G16G16G8F8F16E8A16G16F16E16D16C8E8F8G8A8.G16G16F16F16E16E8E4F16E16F16G16F16G16A8E4"
  64. 640 B$ ="P8A8G8F8E8D16A8A8P8A8G8F8E8D16G8G8P8G8F8E8D8E16F16E16F8P8E8F8G8A8.G16G16F16F16E16E8A4.A8.G16B8A16G16G8G8.G8F16A8G16F16F8A8G8F8E8.D16F16G16A8P8A8G8F8E4.E16D16E8"
  65. 650 PLAY TEM$: PLAY A$: PLAY A$: PLAY B$
  66. 660 GOTO 40
  67. 670 CLS : '**********  BÿR ÿLK BAHAR SABAHI  **********
  68. 680 LOCATE 8, 10: PRINT "BÿR ÿLKBAHAR SABAHI"
  69. 690 LOCATE 10, 10: PRINT "SÖZ.......DR. BEKÿR MUTLU"
  70. 700 LOCATE 12, 10: PRINT "BESTE.....ERDOªAN BERKER"
  71. 710 LOCATE 14, 10: PRINT "MAKAMI....NÿHAVENT"
  72. 720 TEM$ = "T100"
  73. 730 A$ ="O4P8A8A8G8B-8A8A4P8A8A8G8O5C8O4B-8B-4P8B-8B-8A8O5D8C8C4F8E8D8C8D8O4B-8A4P8O5D16C16O4B-8A8G8A8O5C8O4B-8P8O5C16O4B-16A8G8F8G8B-8A8P8D8E8F8G8A8B-4A4G4F8E8D8P8"
  74. 740 B$ ="O4A4B-8.A16G4O5C8O4B-8A2D8F8A4A8A4A8G16A16.O5C8.O4A16B-2.A8O5C8O4B-4B-4B-4B-8B-8O5C8D8E2F16E16D8E16D16C8F4E8D8C16C8D8O4B16A4G8F8E8D4"
  75. 750 E$ = "O4A16B8A16G8A4F16E8D8D4D8O3A4O4D4"
  76. 760 PLAY TEM$: PLAY A$: PLAY A$: PLAY B$: PLAY B$
  77. 770 GOTO 40
  78. 780 CLS : TEM$ = "T100"
  79. 790 LOCATE 8, 10: PRINT "₧ARKILAR YAZDIM SANA"
  80. 800 LOCATE 10, 10: PRINT "SÖZ.......EROL KAV₧ÿT"
  81. 810 LOCATE 12, 10: PRINT "BESTE.....ERDOªAN BERKER"
  82. 820 LOCATE 14, 10: PRINT "MAKAMI....U₧₧AK"
  83. 830 '*************   ₧ARKILAR YAZDIM SANA   *********
  84. 840 A$ ="O4D8A8A8A8A16B16A16G16A4A16B16A16G16B8A8A8G8F8E8D8G8G8G8G16A16G16F16G4G16A16G16F16A8G8G8F8E8D8D8O5D8D8E8D8C8O4B8A8A8G8G8F8F8E8E8D8P8E8F8G8B8B8A8G8A8G8F8E8E4"
  85. 850 PLAY TEM$: PLAY A$: PLAY A$
  86. 860 FOR I = 1 TO 100: NEXT I: GOTO 40
  87. 870 CLS : '************   ₧ARKIMI SENÿN ÿÇÿN YAZDIªIMI BÿLSEYDÿN  ********
  88. 880 LOCATE 8, 10: PRINT "₧ARKIMI SENÿN ÿÇÿN YAZDIªIMI BÿLSEYDÿN"
  89. 890 LOCATE 10, 10: PRINT "BESTE.....ÿRFAN ÖZBAKIR"
  90. 900 LOCATE 12, 10: PRINT "MAKAMI....MAHUR"
  91. 910 TEM$ = "T200"
  92. 920 A$ = "O5D4D4C#8O4B8"
  93. 930 B$ = "O5D4D4C#8D8E2E4E4D8C#8"
  94. 940 C$ = "O5E4E4D8E8F2G4F4E4D4C#4O4B4A4B4O5C#4D2D4C#4O4B4A4G4F4E4F4B8A8A2"
  95. 950 D$ = "O4G4B8B8B8B8F4A8A8A8A8E4G8G8G8G8D4F2O5D4C#4O4B4A4G4F4E4F4C#4D4"
  96. 960 PLAY TEM$: PLAY A$: PLAY A$: PLAY B$: PLAY B$: PLAY C$: PLAY D$: PLAY D$
  97. 970 FOR I = 1 TO 100: NEXT I: GOTO 40
  98. 980 CLS : '************   SEN ÖªRETTÿN SEVGÿLÿM  *********
  99. 990 LOCATE 8, 10: PRINT "SEN ÖªRETTÿN SEVGÿLÿM"
  100. 1000 LOCATE 10, 10: PRINT "SÖZ.......ÿLKAN SAN"
  101. 1010 LOCATE 12, 10: PRINT "BESTE.....DR. TEOMAN ÖNALDI"
  102. 1020 LOCATE 14, 10: PRINT "MAKAMI....MAHUR"
  103. 1030 TEM$ = "T100"
  104. 1040 A$ ="O4A8O5D16E16D8C#8D8C#8D8O4B8A8G8B16O5C16O4B8A8B8A8B8G8F8G8A16B16A8G8A8G8A8F8E8A4A8G8G8F8F4E8G4G8F8F8E8F8E8D8D4.A8B8O5C#8D4P8"
  105. 1050 PLAY TEM$: PLAY A$: PLAY A$
  106. 1060 FOR I = 1 TO 100: NEXT I: GOTO 40
  107. 1070 CLS : '************** GÖZ YA₧IMDA SAKLISIN *********
  108. 1080 LOCATE 8, 10: PRINT "GÖZ YA₧IMDA SAKLISIN"
  109. 1090 LOCATE 10, 10: PRINT "SÖZ.......SEYHAN GÿRGÿNER VE ZEKAÿ TUNCA"
  110. 1100 LOCATE 12, 10: PRINT "BESTE.....ZEKAÿ TUNCA"
  111. 1110 LOCATE 14, 10: PRINT "MAKAMI....HÿCAZ"
  112. 1120 TEM$ = "T100"
  113. 1130 A$ ="O4P8A4B8O5C8C16O4B16O5C4C8C16O4B16O5C8E8D8C8O4B8A8G#8B8A8O5C8O4B8G#8A8E8F4.O5F16E16D16C16O4B16A16G#8F8E8F8A8A8A8A16G#16A4G#8P8A8A8G#8B2P8B8G#8F8A16G#16A4G#16F16E8E4.E4E4"
  114. 1140 PLAY TEM$: PLAY A$: PLAY A$
  115. 1150 FOR I = 1 TO 100: NEXT I: GOTO 40
  116. 1160 CLS : '************** GÖZLERÿNLE KONU₧SAN BENÿMLE ********
  117. 1170 LOCATE 8, 10: PRINT "GÖZLERÿNLE KONU₧SAN BENÿMLE"
  118. 1180 LOCATE 10, 10: PRINT "SÖZ.......ÿ. BEHLÜL PEKTA₧"
  119. 1190 LOCATE 12, 10: PRINT "BESTE.....ZEKAÿ TUNCA"
  120. 1200 LOCATE 14, 10: PRINT "MAKAMI....HÿCAZ"
  121. 1210 TEM$ = "T100"
  122. 1220 A$ =  "O4P8A16A16G#8F8P16E16E16F16E16F16E16D16E16F16D16E16F16E16F16G#16A2P8B16O5C16O4B8A8P16B16B16O5C16O4B16A16G#16A16O5D16D16C#16E16E16D16C16O4B16B2P8O5D8C8O4B8O5C4O4B8A8B32A16B16O5E16D16C16O4B16A16A4G#16F16E8P8A16A16G#8F8A4G#8F8E8D8G#8F16E16E2"
  123. 1230 PLAY TEM$: PLAY A$: PLAY A$
  124. 1240 FOR I = 1 TO 100: NEXT I: GOTO 40
  125. 1250 CLS : '************** KARDES GIBI SEV BENI ********
  126. 1260 LOCATE 8, 10: PRINT "KARDE₧ GÿBÿ SEV BENÿ"
  127. 1270 LOCATE 10, 10: PRINT "SÖZ.......FERÿHA TUNCELLÿ"
  128. 1280 LOCATE 12, 10: PRINT "BESTE.....FERÿHA TUNCELLÿ"
  129. 1290 LOCATE 14, 10: PRINT "MAKAMI....MUHAYYERKÜRDÿ"
  130. 1300 TEM$ = "T90"
  131. 1310 A$ = "O5P8D16E16E8E8E16F16F16E16E4D8.E16F8F16E16E2D8.E16F8F16E16E8E16D16D8.C16E8.D16D16C16C16O4B16O5C2"
  132. 1320 B$ = "O4P8E8O5C16C16C8C16O4B16O5D16C16O4B8B8.A16A8.G16B8.A16B8.G16G16F16F16E16F4E8F16G8A8G16F16F16E16F4E8.F16G8A8G16F16F16E16"
  133. 1330 PLAY TEM$: PLAY A$: PLAY B$: PLAY A$: PLAY B$
  134. 1340 FOR I = 1 TO 100: NEXT I: GOTO 40
  135. 1350 CLS : '************** AYNI ÇATI ALTINDA *************
  136. 1360 LOCATE 8, 10: PRINT "AYNI ÇATI ALTINDA"
  137. 1370 LOCATE 10, 10: PRINT "SÖZ.......TURHAN TA₧AN"
  138. 1380 LOCATE 12, 10: PRINT "BESTE.....TURHAN TA₧AN"
  139. 1390 LOCATE 14, 10: PRINT "MAKAMI....HÿCAZ"
  140. 1400 TEM$ = "T100"
  141. 1410 A$ = "O5E8E8E8E8E16F#16D16E16C#16D16O4B8O5D8D16E16C#16D16O4B16O5C16O4A4P4"
  142. 1420 B$ = "O4B8B16O5C16O4A8A16B16G#8G#16A16F8E8P16A8G#8F8A8P8G#16F16E4"
  143. 1430 PLAY TEM$: PLAY A$: PLAY A$: PLAY B$: PLAY B$
  144. 1440 FOR I = 1 TO 100: NEXT I: GOTO 40
  145. 1450 CLS : '************** KAPILDIM SANA *************
  146. 1460 LOCATE 8, 10: PRINT "KAPILDIM SANA BÿR MECNUN GÿBÿ"
  147. 1470 LOCATE 10, 10: PRINT "SÖZ.......ZEKAÿ TUNCA"
  148. 1480 LOCATE 12, 10: PRINT "BESTE.....ZEKAÿ TUNCA"
  149. 1490 LOCATE 14, 10: PRINT "MAKAMI....HÿCAZ"
  150. 1500 TEM$ = "T120"
  151. 1510 A$ = "O4EB16O5D8C16O4B16A16A16G#16A16B8A16A16G#16G#16F16G#16A8G#16G#16F16F16E16F16G#816F16E16E8"
  152. 1520 PLAY TEM$: PLAY A$: PLAY A$
  153. 1530 FOR I = 1 TO 100: NEXT I: GOTO 40
  154. 1540 CLS : '************** HIC BIRSEYDE GOZUM YOK *************
  155. 1550 LOCATE 8, 10: PRINT "HÿÇ BÿR ₧EYDE GÖZÜM YOK "
  156. 1560 LOCATE 10, 10: PRINT "SÖZ.......FETHÿ KARAMAHMUTOªLU "
  157. 1570 LOCATE 12, 10: PRINT "BESTE.....FETHÿ KARAMAHMUTOªLU "
  158. 1580 LOCATE 14, 10: PRINT "MAKAMI....HÿCAZ"
  159. 1590 TEM$ = "T100"
  160. 1600 A$ = "O5P8C4C8C8D8C8O4B8P8B4B8B8O5C8O4B8A8P8A4A8A8B8A8G#8G#8A8F8E8A4G#4P8A4A8A8B8A8G#8P8G#4G#8G#8A8G#8F8P8F4F8F8G#8F8E8E8F8D8C#8F4E4"
  161. 1610 PLAY TEM$: PLAY A$: PLAY A$
  162. 1620 FOR I = 1 TO 100: NEXT I: GOTO 40
  163. 1630 PRINT "╔══════════════════════════════════════════════════════════════════════════════╗"
  164. 1640 CLS : '************** ₧ARKILARDAN FAL TUTTUM *************
  165. 1650 LOCATE 8, 10: PRINT "₧ARKILARDAN FAL TUTTUM ÿKÿMÿZE KAÇ KERE "
  166. 1660 LOCATE 10, 10: PRINT "SÖZ.......ERDOªAN BERKER "
  167. 1670 LOCATE 12, 10: PRINT "BESTE.....ERDOªAN BERKER "
  168. 1680 LOCATE 14, 10: PRINT "MAKAMI....HÿCAZ"
  169. 1690 TEM$ = "T100"
  170. 1700 A$ = "P8O4E8F8G#8A8G#16F16E8D8P8E8F8G#8A8G#16F16E8D8P8E8F8G#8A8B8O5C8D8E8E4E8G16F16E16F16E4P8D16E16F#8E8D8C8E8D8P8O4B16O5C16D8C8O4B8A8O5C8O4B8P8O5E8D8C8O4B8A8G#8F8E8E4E8F16E16F16D16E4"
  171. 1710 PLAY TEM$: PLAY A$: PLAY A$
  172. 1720 FOR I = 1 TO 100: NEXT I: GOTO 40
  173. 1730 CLS : '************** PENCERENÿN PERDESÿ *************
  174. 1740 LOCATE 8, 10: PRINT "PENCERENÿN PERDESÿ "
  175. 1750 LOCATE 10, 10: PRINT "SÖZ.......MUHLÿS SABAHATTÿN EZGÿ "
  176. 1760 LOCATE 12, 10: PRINT "BESTE.....MUHLÿS SABAHATTÿN EZGÿ "
  177. 1770 LOCATE 14, 10: PRINT "MAKAMI....HÿCAZ"
  178. 1780 TEM$ = "T100"
  179. 1790 A$ = "O5E4E4D8C8O4B4O5D8C8O4B8A8O5C8O4B8A8G#8F8E8D4P8B2O5C8O4A8G#8F8E8F4G#4A8B8G#8F8E8E2E2P8"
  180. 1800 PLAY TEM$: PLAY A$: PLAY A$
  181. 1810 FOR I = 1 TO 100: NEXT I: GOTO 40
  182. 1820 CLS : '************** BÖYLE KAÇ YIL GEÇECEK ************
  183. 1830 LOCATE 8, 10: PRINT "BÖYLE KAÇ YIL GEÇECEK GÖZ YA₧LI GÖNÜL KIRIK"
  184. 1840 LOCATE 10, 10: PRINT "SÖZ.......MEHMET ERBULAN"
  185. 1850 LOCATE 12, 10: PRINT "BESTE.....NECDET TOKATLIOªLU"
  186. 1860 LOCATE 14, 10: PRINT "MAKAMI....HÿCAZ"
  187. 1870 TEM$ = "T100"
  188. 1880 A$ = "O5P8E8E8E8F#8E16D8C#8D16C#16O4B4.O5C16D16C16D16O4B4P8O5D8D8D8E8D8C8O4B8O5C16O4B16A4.B16O5C16O4B16O5C16O4A4P8G#8A8B8O5C8O4B8A8G#8A8O5E8D8C8O4B8A8G#8F8P8E8F8G#8A8G#8F8E8F8E4.F16G#16F16G#16E4"
  189. 1890 PLAY TEM$: PLAY A$: PLAY A$
  190. 1900 FOR I = 1 TO 100: NEXT I: GOTO 40
  191. 1910 CLS : '************** BÿLSEN DÖNÜP GELECEKSÿN ***********
  192. 1920 LOCATE 8, 10: PRINT "BÿLSEN DÖNÜP GELECEKSÿN"
  193. 1930 LOCATE 10, 10: PRINT "SÖZ.......GÜNGÖR SARKIN"
  194. 1940 LOCATE 12, 10: PRINT "BESTE.....ZEKAÿ TUNCA"
  195. 1950 LOCATE 14, 10: PRINT "MAKAMI....HÿCAZ"
  196. 1960 TEM$ = "T100"
  197. 1970 A$ = "O4E4A4G#8A4.G#8A8f8A8A4G#16F16E8E4B4E8B4.B8O5C8O4A8O5C8C4C16O4B16O5C8C4C8C8C4C8O4B8B8O5C8D8O4B8A8A8O5C8O4A8A8A4G#8A8G#8O5C4O4B16A16A4.A4A4B8O5C8O4B8A8B16O5C16O4A4.A16B16G#8O5C8O4B16A16A16A16G#16F16E4"
  198. 1980 PLAY TEM$: PLAY A$: PLAY A$
  199. 1990 FOR I = 1 TO 100: NEXT I: GOTO 40
  200. 2000 CLS '************** ₧U GÖNLÜMÜ YARALAYAN **********
  201. 2010 LOCATE 8, 10: PRINT "₧U GÖNLÜMÜ YARALAYAN SÿZDEN BÿRÿ"
  202. 2020 LOCATE 10, 10: PRINT "SÖZ.......ÿLKAN SAN"
  203. 2030 LOCATE 12, 10: PRINT "BESTE.....EROL SAYAN"
  204. 2040 LOCATE 14, 10: PRINT "MAKAMI....NÿHAVENT"
  205. 2050 TEM$ = "T150"
  206. 2060 A$ = "O4F4F8E8D8E8F4D8F4D8F4F8G8A4F8A4F8A8B-4B-8A8G8A8B-4O5D4F4E4D4C4O4B-4A4B-4A2.A4G4A4G2.F4E4F4D8F8A8O5D8F8E8D8C8O4B-8A8G8F8E8F8E8D8C#8O3B-8A2."
  207. 2070 PLAY TEM$: PLAY A$: PLAY A$
  208. 2080 FOR I = 1 TO 100: NEXT I: GOTO 40
  209. 2090 CLS : '************** GÖKTEN YAªMUR DEªÿL ***********
  210. 2100 LOCATE 8, 10: PRINT "GÖKTEN YAªMUR DEªÿL SEVGÿLER YAªSIN"
  211. 2110 LOCATE 10, 10: PRINT "SÖZ.......₧AFAK ATAYAMAN"
  212. 2120 LOCATE 12, 10: PRINT "BESTE.....BÿLGE ÖZGEN"
  213. 2130 LOCATE 14, 10: PRINT "MAKAMI....NÿHAVENT"
  214. 2140 TEM$ = "T150"
  215. 2150 A$ = "O4D4A16A16A8O5F4E8D8C8E4E4E4E4P8O4F16F16F8O5C2O4B-8A8G#8A2F16E16D8A4P8P4A16A16A8O5C4C8O4B8O5C8D8.C16O4B8A8G8F8E4P8D8.E16F8G8A8G8F8E8F8D4.E8F16E16F16G16F16E16F16E16D16C#16"
  216. 2160 PLAY TEM$: PLAY A$: PLAY A$
  217. 2170 FOR I = 1 TO 100: NEXT I: GOTO 40
  218. 2180 CLS : '************** BÿR SEVGÿ ÿSTÿYORUM ***********
  219. 2190 LOCATE 8, 10: PRINT "BÿR SEVGÿ ÿSTÿYORUM"
  220. 2200 LOCATE 10, 10: PRINT "SÖZ.......NECDET TOKATLIOªLU"
  221. 2210 LOCATE 12, 10: PRINT "BESTE.....NECDET TOKATLIOªLU"
  222. 2220 LOCATE 14, 10: PRINT "MAKAMI....NÿHAVENT"
  223. 2230 TEM$ = "T200"
  224. 2240 A$ =
  225. "O4D8E8F8G8F8E8F8D2O3A4O4D4P8D4E4F4G4F4E4D4A2D4A4P8A8B-8O5C8D8C8O4B-8A8O5E2O4A4O
  226. 5E4P8F8E8D8C8O4B-8A8G8A2D4A4"
  227. 2250 B$ = "O4P8B-8A8G8F4E8F8G4P4E8F8G4P8A8G8F8E4F8E8D2O3A4O4D4"
  228. 2260 PLAY TEM$: PLAY A$: PLAY B$: PLAY B$: PLAY A$: PLAY B$: PLAY B$
  229. 2270 FOR I = 1 TO 100: NEXT I: GOTO 40
  230. 2280 CLS : '************** AFFETMEM ASLA SENÿ ***********
  231. 2290 LOCATE 8, 10: PRINT "AFFETMEM ASLA SENÿ"
  232. 2300 LOCATE 10, 10: PRINT "SÖZ.......MUSTAFA SEVÿLEN"
  233. 2310 LOCATE 12, 10: PRINT "BESTE.....YILDIRIM GÜRSES"
  234. 2320 LOCATE 14, 10: PRINT "MAKAMI....NÿHAVENT"
  235. 2330 TEM$ = "T130"
  236. 2340 A$ = "O4D16E16F4.F16E16F16E16F16E16F16G16F16E16D4A4F8E8D8D16E16F4.F16E16F16E16F16E16F16G16G16F16E4A4G8F8E8E16F16G4.P8G16F#16G16F16G16A16G8F4.P8F16E16F16E16F16G16F8E4.P8E16D16E16D16E16F16"
  237. 2350 B$ = "F8D4.C#8O3B-8A8"
  238. 2360 B$ = "E8D4.A16B-16A16G16F16G16F16E16"
  239. 2370 PLAY TEM$: PLAY A$: PLAY B$: PLAY A$: PLAY C$
  240. 2380 FOR I = 1 TO 100: NEXT I: GOTO 40
  241. 2390 CLS : '************** BENÿ HATIRLA ***********
  242. 2400 LOCATE 8, 10: PRINT "HATIRLA SEVGÿLÿM BENÿ HATIRLA"
  243. 2410 LOCATE 10, 10: PRINT "SÖZ.......ÿLKAN SAN"
  244. 2420 LOCATE 12, 10: PRINT "BESTE.....ERDOªAN BERKER"
  245. 2430 LOCATE 14, 10: PRINT "MAKAMI....NÿHAVENT"
  246. 2440 TEM$ = "T200"
  247. 2450 A$ ="O4A2.A2.A2.A2.A8A#8A2O5C8O4B-8O5C2D8C#8D2E8D8E2F4E4D4G4E4D4C2.C2.O4B-2B-4B-8A8G2A2A4A8G8F2A4O5D4O4B-4A2F8E8D2.D2."
  248. 2460 PLAY TEM$: PLAY A$: PLAY A$
  249. 2470 FOR I = 1 TO 100: NEXT I: GOTO 40
  250. 2480 END
  251.